home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
1159.ZIP
/
OPTSET.PRG
< prev
next >
Wrap
Text File
|
1986-10-14
|
2KB
|
138 lines
DO WHILE N4#'STOP'
SET BELL OFF
CLEAR
@ 1,4 SAY 'Choose the data base for which you wish to define options.'
N4='Z'
DO WHILE ASC(N4)<65.OR.ASC(N4)>84
@ 3,10 SAY 'A) Set options for the '
?? DATABASE1
??' data base.'
@ 4,10 SAY 'B) Set options for the '
?? DATABASE2
??' data base.'
@ 5,10 SAY 'C) Set options for the '
?? DATABASE3
??' data base.'
@ 6,10 SAY 'D) Set options for the '
?? DATABASE4
??' data base.'
@ 7,10 SAY 'E) Set options for the '
?? DATABASE5
??' data base.'
@ 8,10 SAY 'F) Set options for the '
?? DATABASE6
??' data base.'
@ 9,10 SAY 'G) Set options for the '
?? DATABASE7
??' data base.'
@ 10,10 SAY 'H) Set options for the '
?? DATABASE8
??' data base.'
@ 11,10 SAY 'I) Set options for the '
?? DATABASE9
??' data base.'
@ 12,10 SAY 'J) Set options for the '
?? DATABASE10
??' data base.'
@ 13,10 SAY 'K) Set options for the '
?? DATABASE11
??' data base.'
@ 14,10 SAY 'L) Set options for the '
?? DATABASE12
??' data base.'
@ 15,10 SAY 'M) Set options for the '
?? DATABASE13
??' data base.'
@ 16,10 SAY 'N) Set options for the '
?? DATABASE14
??' data base.'
@ 17,10 SAY 'O) Set options for the '
?? DATABASE15
??' data base.'
@ 18,10 SAY 'P) Set options for the '
?? DATABASE16
??' data base.'
@ 19,10 SAY 'Q) Set options for the '
?? DATABASE17
??' data base.'
@ 20,10 SAY 'R) Set options for the '
?? DATABASE18
??' data base.'
@ 21,10 SAY 'S) Set options for the '
?? DATABASE19
??' data base.'
@ 22,10 SAY 'T) Set options for the '
?? DATABASE20
??' data base.'
WAIT ' Press RETURN to return to the previous menu.' TO N4
??' WORKING . . .'
N4=UPPER(N4)
DO CASE
CASE ASC(N4)=0
RETURN
CASE N4='A'
N=1
DO OPTSETWK
CASE N4='B'
N=2
DO OPTSETWK
CASE N4='C'
N=3
DO OPTSETWK
CASE N4='D'
N=4
DO OPTSETWK
CASE N4='E'
N=5
DO OPTSETWK
CASE N4='F'
N=6
DO OPTSETWK
CASE N4='G'
N=7
DO OPTSETWK
CASE N4='H'
N=8
DO OPTSETWK
CASE N4='I'
N=9
DO OPTSETWK
CASE N4='J'
N=10
DO OPTSETWK
CASE N4='K'
N=11
DO OPTSETWK
CASE N4='L'
N=12
DO OPTSETWK
CASE N4='M'
N=13
DO OPTSETWK
CASE N4='N'
N=14
DO OPTSETWK
CASE N4='O'
N=15
DO OPTSETWK
CASE N4='P'
N=16
DO OPTSETWK
CASE N4='Q'
N=17
DO OPTSETWK
CASE N4='R'
N=18
DO OPTSETWK
CASE N4='S'
N=19
DO OPTSETWK
CASE N4='T'
N=20
DO OPTSETWK
ENDCASE
ENDDO
N4='Z'
ENDDO
RETURN